Unit BTestCaseInfoUnit;

{$mode objfpc}{$H+}

Interface

Uses
  Classes, SysUtils, BListsUnit, LiteLCLProc;

Type

{ BTestCaseInfoClass }

 BTestCaseInfoClass = Class
  Private
    bFilePath: String;
    Function GetUnitName: String;
  Public
    Property FilePath: String Read bFilePath;
    Property UnitName: String Read GetUnitName;
    Constructor Build(Const aFilePath: String);
    Destructor Burn;
End;

Type BTestCasesList = Specialize BPrimitiveList<BTestCaseInfoClass>;

Implementation

{ BTestCaseInfoClass }

Function BTestCaseInfoClass.GetUnitName: String;
Begin
  Result := ExtractFileNameOnly(bFilePath);
end;

Constructor BTestCaseInfoClass.Build(Const aFilePath: String);
Begin
  bFilePath := aFilePath;
End;

Destructor BTestCaseInfoClass.Burn;
Begin

End;

End.

